Shareware Grab Bag/Shareware Grab Bag.iso/003/pssst.arc/PSPRINTP.PRG

Text File | 1986-08-14 | 2.5 KB | 98 lines

* PSPRINTP.PRG
*
* A DBASE II 16BIT COMMAND FILE for printing a phone master roster.
*
* Version 1
* By LTC Denny Hugg
* ANGSC/DOS Andrews AFB MD 16 Jul 1985
*
* Version 2
* modified by Maj Jim McMurry
* ANGSC/DOSC Truax Field, WI 15 Jun 1986
*
*
ERASE
STORE 1 TO line
STORE 'P R I N T   P H O N E   R O S T E R' TO prompt
DO PSPROMPT
USE PSPHONE INDEX PSPHONEI
STORE 56 TO mpagelen
STORE 1 TO pageno
@ 10,32 SAY 'Printing Now ...'
SET FORMAT TO PRINT
STORE 2 TO mline
@ mline, 1 SAY 'Page no. ' + STR(pageno,1)
@ mline,21 SAY 'M A S T E R   P H O N E   R O S T E R'
@ mline,71 SAY gdate
STORE mline + 3 TO mline
* --- print the info
STORE 0 TO mpasses
@ mline, 0 SAY 'LAST NAME'
@ mline,12 SAY 'FIRST'
@ mline,20 SAY 'RANK'
@ mline,27 SAY 'O/S'
@ mline,33 SAY 'U/#'
@ mline,38 SAY 'TYPE'
@ mline,46 SAY 'LOC'
@ mline,51 SAY 'ST'
@ mline,55 SAY 'SUBJECT'
@ mline,72 SAY 'PHONE'
STORE mline + 1 TO mline
@ mline, 0 SAY '----------------------------------------';
              +'----------------------------------------'
STORE mline + 1 TO mline
DO WHILE .NOT. EOF
   IF mline > mpagelen
      STORE 2 TO mline
      EJECT
      STORE pageno + 1 TO pageno
      @ mline, 0 SAY 'Page no. ' + STR(pageno,1)
      @ mline,72 SAY gdate
      STORE mline + 3 To mline
      @ mline, 0 SAY 'LAST NAME'
      @ mline,12 SAY 'FIRST'
      @ mline,20 SAY 'RANK'
      @ mline,27 SAY 'O/S'
      @ mline,33 SAY 'U/#'
      @ mline,38 SAY 'TYPE'
      @ mline,46 SAY 'LOC'
      @ mline,51 SAY 'ST'
      @ mline,55 SAY 'SUBJECT'
      @ mline,72 SAY 'PHONE'
      STORE mline + 1 TO mline
      @ mline, 0 SAY '----------------------------------------';
                    +'----------------------------------------'
      STORE mline + 1 TO mline
   ENDIF
   @ mline, 0 SAY lname
   @ mline,12 SAY fname
   @ mline,20 SAY rank
   @ mline,27 SAY offsym
   @ mline,33 SAY unitno
   @ mline,38 SAY unitype
   @ mline,46 SAY icao
   @ mline,51 SAY state
   @ mline,55 SAY subject
   @ mline,72 SAY avnop + '-' + avnos
   STORE mline + 1 TO mline
   STORE mpasses + 1 TO mpasses
   SKIP
ENDDO
IF mpasses = 0
   @ 10, 0 SAY gclearline
   STORE 10 TO line
   STORE 'There Is No Phone Information Saved' TO prompt
   DO PSPROMPT
   STORE 0 TO timer
   DO WHILE timer < gdelay
      STORE timer + 1 to timer
   ENDDO
ENDIF
* --- dumps last line out of printer buffer
@ 0, 0 SAY CHR(13)
SET FORMAT TO SCREEN
@ 10, 0 SAY gclearline
RETURN
* EOF PSPRINTP.PRG

  @ mline,33 SAY 'U/#